home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Games / PC-SIG World of Games (CDRM1080710) (1993).iso / ENT / DISK1833.ZIP / SAPPH112.ARC / BAUD2EL.PAS < prev    next >
Pascal/Delphi Source File  |  1989-07-31  |  2KB  |  56 lines
  1. PROGRAM Baud2EL;
  2.  
  3. {
  4.  
  5.   Sets the DOS errorlevel according to the baudrate.
  6.   The baudrate information is derived from Sapphire's door information file.
  7.   This program was developed in order to run QuickBBS as a door from Sapphire.
  8.  
  9. }
  10.  
  11. {$I SDOOR.INC}
  12.  
  13. VAR
  14.   DataFileRec : DataFileType;
  15.   DataFile    : FILE OF DataFileType;
  16.  
  17. PROCEDURE Logo;
  18. BEGIN
  19.   WRITELN;
  20.   WRITELN('┌──────────────────────────────────────────────────────┬──────────────────┐');
  21.   WRITELN('│  Pinnacle Software''s Baudrate-to-Errorlevel Program  │      BAUD2EL     │');
  22.   WRITELN('├──────────────────────────────────────────────────────┴──────────────────┤');
  23.   WRITELN('│  C O P Y R I G H T  (C)  1988  BY   P I N N A C L E    S O F T W A R E  │');
  24.   WRITELN('│  P.O. Box 386,  Town of Mount Royal, Montreal, Quebec, Canada  H3P 3C6  │');
  25.   WRITELN('└─────────────────────────────────────────────────────────────────────────┘');
  26.   WRITELN;
  27. END;
  28.  
  29. PROCEDURE Whoa(WNum : BYTE);
  30. BEGIN
  31.   WRITELN('BAUD2EL:  Baudrate = ',DataFileRec.BaudRate,'.  Return code = ',WNum,'.');
  32.   WRITELN;
  33.   HALT(WNum);
  34. END;
  35.  
  36. BEGIN
  37.   Logo;
  38.   {$I-}
  39.   ASSIGN(DataFile,'\SAPPHIRE.DAT');
  40.   RESET(DataFile);
  41.   IF IORESULT <> 0 THEN Whoa(254);  { Missing file }
  42.   READ(DataFile,DataFileRec);
  43.   IF IORESULT <> 0 THEN Whoa(253);  { Read error }
  44.   {$I+}
  45.   CASE DataFileRec.BaudRate OF
  46.         0 : Whoa(0);     { Console }
  47.       300 : Whoa(1);
  48.      1200 : Whoa(2);
  49.      2400 : Whoa(3);
  50.      4800 : Whoa(4);
  51.      9600 : Whoa(5);
  52.     19200 : Whoa(6);
  53.     ELSE    Whoa(255);   { Unknown baudrate }
  54.   END;
  55. END.
  56.